home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SNNSV32.ZIP / SNNSv3.2 / xgui / sources / bn_artmap.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-04-25  |  34.6 KB  |  1,299 lines
  1. /*****************************************************************************
  2.   FILE           : bn_artmap.c
  3.   SHORTNAME      : bn_artmap
  4.   SNNS VERSION   : 3.2
  5.  
  6.   PURPOSE        : Creates the ARTMAP-window and ARTMAP networks. 
  7.   NOTES          :
  8.  
  9.   AUTHOR         : Kai-Uwe Herrmann
  10.   DATE           : 15.1.1993
  11.  
  12.   CHANGED BY     : 
  13.   IDENTIFICATION : @(#)bn_artmap.c    1.9 3/2/94
  14.   SCCS VERSION   : 1.9
  15.   LAST CHANGE    : 3/2/94
  16.  
  17.              Copyright (c) 1990-1994  SNNS Group, IPVR, Univ. Stuttgart, FRG
  18.  
  19. ******************************************************************************/
  20.  
  21.  
  22.  
  23. #include <stdlib.h>
  24. #include <stdio.h>
  25. #include <X11/Xlib.h>
  26. #include <X11/Xutil.h>
  27. #include <X11/Xos.h>
  28. #include <X11/cursorfont.h>
  29. #include <X11/Intrinsic.h>
  30. #include <X11/StringDefs.h>
  31. #include <X11/Shell.h>
  32. #include <X11/Xaw/Box.h>
  33. #include <X11/Xaw/Simple.h>
  34. #include <X11/Xaw/Grip.h>
  35. #include <X11/Xaw/Form.h>
  36. #include <X11/Xaw/SmeBSB.h>
  37. #include <X11/Xaw/SmeLine.h>
  38. #include <X11/Xaw/Viewport.h>
  39. #include <X11/Xaw/Label.h>
  40. #include <X11/Xaw/Toggle.h>
  41. #include <X11/Xaw/Command.h>
  42. #include <X11/Xaw/Cardinals.h>
  43. #include <X11/Xaw/AsciiText.h>
  44. #include <X11/Xaw/Scrollbar.h>
  45.  
  46. #include "ui.h"
  47. #include "glob_typ.h"
  48. #include "kr_ui.h"
  49. #include "ui_mainP.h"
  50. #include "ui_confirmer.h"
  51. #include "ui_textP.h"
  52. #include "ui_utilP.h"
  53. #include "ui_netUpdate.h"
  54. #include "ui_status.h"
  55. #include "ui_xWidgets.h"
  56. #include "ui_fileP.h"
  57. #include "ui_display.h"
  58. #include "ui_event.h"
  59. #include "ui_selection.h"
  60.  
  61. #include "bn_basics.h"
  62.  
  63. #include "bn_artmap.ph"
  64.  
  65.  
  66.  
  67.  
  68. /*****************************************************************************
  69.   FUNCTION : bn_artmap_make_layer
  70.  
  71.   PURPOSE  : make a complete layer
  72.   NOTES    :
  73.  
  74.   UPDATE   : 20.1.1993
  75. ******************************************************************************/
  76.  
  77. static krui_err bn_artmap_make_layer (
  78.                         int  units, 
  79.                         int  rows, 
  80.                         int  cols, 
  81.                         int  Xbegin, 
  82.                         int  Ybegin,
  83.                         char *name_prefix, 
  84.                         int  unit_ttype, 
  85.                         char *actfuncname,
  86.                         char *outfuncname,
  87.                         int  NoOfSites,
  88.                         char **SiteNames,
  89.                         char **SiteFuncNames)
  90.  
  91. {
  92.    krui_err             ret_code = KRERR_NO_ERROR;
  93.  
  94.    int                  row;
  95.    int                  col;
  96.    int                  count;
  97.    int                  last_col;
  98.    int                  unit_no;
  99.    struct PosType       unit_pos;
  100.    char                 *site_name, *site_func_name;
  101.    int                  site_no;
  102.    char                 name[10];
  103.  
  104.  
  105.    /* Create Site Table Entries */
  106.    site_no = 1;
  107.    while (site_no <= NoOfSites) {
  108.       site_name= *(SiteNames+(site_no-1));
  109.       site_func_name= *(SiteFuncNames+(site_no-1));
  110.  
  111.       if ((site_name != NULL) && (site_func_name != NULL)) {
  112.          ret_code = krui_createSiteTableEntry(site_name, site_func_name);
  113.          CHECK_RETURN (ret_code);
  114.       } /*if*/
  115.  
  116.       site_no++;
  117.    }  /*while*/
  118.  
  119.    /* Create Units */
  120.    for (row = 1, count = 0; row <= rows; row++) {
  121.  
  122.       if ((units % rows) > 0) {
  123.          last_col = POS_SIGN((units-count) % (rows-row+1));
  124.       } else {
  125.          last_col = 1;
  126.       } /*if*/
  127.  
  128.       for (col = 1; col <= (cols-1+last_col); col++) {
  129.  
  130.          count++;
  131.  
  132.          unit_no = krui_createDefaultUnit();
  133.          if (unit_no < 0)  CHECK_RETURN (unit_no);
  134.  
  135.          ret_code = krui_setUnitTType (unit_no, unit_ttype);
  136.          CHECK_RETURN( ret_code );
  137.  
  138.          ret_code = krui_setUnitActFunc(unit_no, actfuncname);
  139.          CHECK_RETURN (ret_code);
  140.  
  141.          ret_code = krui_setUnitOutFunc(unit_no, outfuncname);
  142.          CHECK_RETURN (ret_code);
  143.  
  144.          if (units > 1) {
  145.             sprintf (name,"%s%d",name_prefix,count);
  146.          } else {
  147.             sprintf (name,"%s",name_prefix);
  148.          } /*if*/
  149.  
  150.          ret_code = krui_setUnitName (unit_no, name);
  151.          CHECK_RETURN (ret_code);
  152.  
  153.          unit_pos.x = Xbegin + col - 1;
  154.          unit_pos.y = Ybegin + row - 1;
  155.          krui_setUnitPosition( unit_no, &unit_pos );
  156.  
  157.          ret_code = krui_setCurrentUnit (unit_no);
  158.          CHECK_RETURN (ret_code);
  159.  
  160.          /* Add Sites */
  161.          site_no = 1;
  162.          while (site_no <= NoOfSites) {
  163.              site_name= *(SiteNames+(site_no-1));
  164.  
  165.              if (site_name != NULL) {
  166.                 ret_code = krui_addSite (site_name);
  167.                 CHECK_RETURN (ret_code);
  168.              } /*if*/
  169.  
  170.              site_no++;
  171.          } /*while*/
  172.  
  173.       } /*for*/
  174.  
  175.    } /*for*/
  176.  
  177.    return (ret_code);
  178. } 
  179.  
  180.  
  181.  
  182. /*****************************************************************************
  183.   FUNCTION : bn_artmap_createNet
  184.  
  185.   PURPOSE  : Generation of the ARTMAP network using SNNS kernel functions.
  186.   NOTES    :
  187.  
  188.   UPDATE   : 20.1.1993
  189. ******************************************************************************/
  190.  
  191. static krui_err bn_artmap_createNet (int f1aUnits, int f1aRows, int f2aUnits, int f2aRows, 
  192.                                      int f1bUnits, int f1bRows, int f2bUnits, int f2bRows)
  193.  
  194. {
  195.    krui_err          ret_code   = KRERR_NO_ERROR;
  196.  
  197.    int               NoOfSites;
  198.  
  199.    char              **SiteName, **SiteFunc;
  200.  
  201.    int               i, j;
  202.  
  203.    /* Allocate memory for the to pointer Arrays for site names
  204.       and sitefunc names
  205.    */
  206.    SiteName      = (char **) malloc (2*sizeof(char *));
  207.    SiteFunc      = (char **) malloc (2*sizeof(char *));
  208.  
  209.    if ((SiteName == NULL) || (SiteFunc == NULL)) {
  210.       return (KRERR_INSUFFICIENT_MEM);
  211.    } /*if*/
  212.    /* Allocate memory to save Site names and Sitefunc names */
  213.    *SiteName     = malloc (STRING_LENGTH);
  214.    *(SiteName+1) = malloc (STRING_LENGTH);
  215.    *SiteFunc     = malloc (STRING_LENGTH);
  216.    *(SiteFunc+1) = malloc (STRING_LENGTH);
  217.  
  218.    if ((*SiteName == NULL) || (*(SiteName+1) == NULL) ||
  219.        (*SiteFunc == NULL) || (*(SiteFunc+1) == NULL)
  220.       )
  221.    {
  222.       return (KRERR_INSUFFICIENT_MEM);
  223.    } /*if*/
  224.  
  225.  
  226.    /********* create ARTa units ******************/
  227.  
  228.    /* create Input Layer for ARTa */
  229.    ret_code = bn_artmap_make_layer (f1aUnits, f1aRows, F1a_COLS, INPa_X, INPa_Y, "inpa",
  230.                                     INPUT, ACTF_INPa, OUTFUNC, 0, NULL, NULL);
  231.    CHECK_RETURN (ret_code);
  232.  
  233.    /* create Comparison Layer for ARTa */
  234.    ret_code = bn_artmap_make_layer (f1aUnits, f1aRows, F1a_COLS, CMPa_X, CMPa_Y, "cmpa",
  235.                                     HIDDEN, ACTF_CMPa, OUTFUNC, 0, NULL, NULL);
  236.    CHECK_RETURN (ret_code);
  237.  
  238.    /* create Recognition Layer for ARTa */
  239.    ret_code = bn_artmap_make_layer (f2aUnits, f2aRows, F2a_COLS, RECa_X, RECa_Y, "reca",
  240.                                     SPECIAL, ACTF_RECa, OUTFUNC, 0, NULL, NULL);
  241.    CHECK_RETURN (ret_code);
  242.  
  243.    /* create Delay Layer for ARTa */
  244.    ret_code = bn_artmap_make_layer (f2aUnits, f2aRows, F2a_COLS, DELa_X, DELa_Y, "dela",
  245.                                     HIDDEN, ACTF_DELa, OUTFUNC, 0, NULL, NULL);
  246.    CHECK_RETURN (ret_code);
  247.  
  248.    /* create d1a */
  249.    ret_code = bn_artmap_make_layer (1, 1, 1, D1a_X, D1a_Y, "d1a", HIDDEN, ACTF_Da,
  250.                                     OUTFUNC, 0, NULL, NULL);
  251.    CHECK_RETURN (ret_code);
  252.  
  253.    /* create d2a */
  254.    ret_code = bn_artmap_make_layer (1, 1, 1, D2a_X, D2a_Y, "d2a", HIDDEN, ACTF_Da,
  255.                                     OUTFUNC, 0, NULL, NULL);
  256.    CHECK_RETURN (ret_code);
  257.  
  258.    /* create d3a */
  259.    ret_code = bn_artmap_make_layer (1, 1, 1, D3a_X, D3a_Y, "d3a", HIDDEN, ACTF_Da,
  260.                                     OUTFUNC, 0, NULL, NULL);
  261.    CHECK_RETURN (ret_code);
  262.  
  263.    /* create local reset layer */
  264.    NoOfSites = 2;
  265.    strcpy(*SiteName,     SITE_NAME_RSTa_SELF);
  266.    strcpy(*(SiteName+1), SITE_NAME_RSTa_SIGNAL);
  267.    strcpy(*SiteFunc,     SITE_FUNC_RSTa_SELF);
  268.    strcpy(*(SiteFunc+1), SITE_FUNC_RSTa_SIGNAL);
  269.  
  270.    ret_code = bn_artmap_make_layer (f2aUnits, f2aRows, F2a_COLS, RSTa_X, RSTa_Y, "rsta",
  271.                                     HIDDEN, ACTF_RSTa, OUTFUNC, NoOfSites, SiteName,
  272.                                     SiteFunc);
  273.    CHECK_RETURN (ret_code);
  274.  
  275.  
  276.    /* create g1a */
  277.    NoOfSites = 2;
  278.    strcpy(*SiteName    , SITE_NAME_REC_G1a);
  279.    strcpy(*(SiteName+1), SITE_NAME_INP_G1a);
  280.    strcpy(*SiteFunc    , SITE_FUNC_REC_G1a);
  281.    strcpy(*(SiteFunc+1), SITE_FUNC_INP_G1a);
  282.  
  283.    ret_code = bn_artmap_make_layer (1, 1, 1, G1a_X, G1a_Y, "g1a", HIDDEN, ACTF_G1a,
  284.                                     OUTFUNC, NoOfSites, SiteName, SiteFunc);
  285.    CHECK_RETURN (ret_code);
  286.  
  287.    /* create ria */
  288.    NoOfSites = 2;
  289.    strcpy(*SiteName    , SITE_NAME_INP_RIa);
  290.    strcpy(*(SiteName+1), SITE_NAME_RHO_RIa);
  291.    strcpy(*SiteFunc    , SITE_FUNC_INP_RIa);
  292.    strcpy(*(SiteFunc+1), SITE_FUNC_RHO_RIa);
  293.  
  294.    ret_code = bn_artmap_make_layer (1, 1, 1, RIa_X, RIa_Y, "ria", HIDDEN, ACTF_RIa,
  295.                                     OUTFUNC, NoOfSites, SiteName, SiteFunc);
  296.    CHECK_RETURN (ret_code);
  297.  
  298.    /* create rca */
  299.    ret_code = bn_artmap_make_layer (1, 1, 1, RCa_X, RCa_Y, "rca", HIDDEN, ACTF_RCa,
  300.                                     OUTFUNC, 0, NULL, NULL);
  301.    CHECK_RETURN (ret_code);
  302.  
  303.  
  304.    /* create rga */
  305.    ret_code = bn_artmap_make_layer (1, 1, 1, RGa_X, RGa_Y, "rga", HIDDEN, ACTF_RGa,
  306.                                     OUTFUNC, 0, NULL, NULL);
  307.    CHECK_RETURN (ret_code);
  308.  
  309.    /* create cla */
  310.    ret_code = bn_artmap_make_layer (1, 1, 1, CLa_X, CLa_Y, "cla", HIDDEN, ACTF_CLa,
  311.                                     OUTFUNC, 0, NULL, NULL);
  312.    CHECK_RETURN (ret_code);
  313.  
  314.    /* create nca */
  315.    ret_code = bn_artmap_make_layer (1, 1, 1, NCa_X, NCa_Y, "nca", HIDDEN, ACTF_NCa,
  316.                                     OUTFUNC, 0, NULL, NULL);
  317.    CHECK_RETURN (ret_code);
  318.  
  319.    /* create rhoa */
  320.    ret_code = bn_artmap_make_layer (1, 1, 1, RHOa_X, RHOa_Y, "rhoa", HIDDEN, ACTF_RHOa,
  321.                                     OUTFUNC, 0, NULL, NULL);
  322.    CHECK_RETURN (ret_code);
  323.  
  324.    /* create g2a */
  325.    ret_code = bn_artmap_make_layer (1, 1, 1, G2a_X, G2a_Y, "g2a", HIDDEN, ACTF_G2a,
  326.                                     OUTFUNC, 0, NULL, NULL);
  327.    CHECK_RETURN (ret_code);
  328.  
  329.  
  330.  
  331.    /********* create MAP-Field units ******************/
  332.  
  333.    /* create map layer */
  334.    ret_code = bn_artmap_make_layer (f2bUnits, f2bRows, F2b_COLS, MAP_X, MAP_Y, "map", HIDDEN,
  335.                                     ACTF_MAP, OUTFUNC, 0, NULL, NULL);
  336.    CHECK_RETURN (ret_code);
  337.  
  338.    /* create d1 unit */
  339.    ret_code = bn_artmap_make_layer (1, 1, 1, D1_X, D1_Y, "d1", HIDDEN, ACTF_D1, OUTFUNC,
  340.                                     0, NULL, NULL);
  341.    CHECK_RETURN (ret_code);
  342.  
  343.    /* create G unit */
  344.    NoOfSites = 2;
  345.    strcpy(*SiteName    , SITE_NAME_ARTa_G);
  346.    strcpy(*(SiteName+1), SITE_NAME_ARTb_G);
  347.    strcpy(*SiteFunc    , SITE_FUNC_ARTa_G);
  348.    strcpy(*(SiteFunc+1), SITE_FUNC_ARTb_G);
  349.  
  350.    ret_code = bn_artmap_make_layer (1, 1, 1, G_X, G_Y, "G", HIDDEN, ACTF_G, OUTFUNC,
  351.                                     NoOfSites, SiteName, SiteFunc);
  352.    CHECK_RETURN (ret_code);
  353.  
  354.    /* create rb unit */
  355.    NoOfSites = 2;
  356.    strcpy(*SiteName    , SITE_NAME_B_RB);
  357.    strcpy(*(SiteName+1), SITE_NAME_RHO_RB);
  358.    strcpy(*SiteFunc    , SITE_FUNC_B_RB);
  359.    strcpy(*(SiteFunc+1), SITE_FUNC_RHO_RB);
  360.  
  361.    ret_code = bn_artmap_make_layer (1, 1, 1, RB_X, RB_Y, "rb", HIDDEN, ACTF_RB, OUTFUNC,
  362.                                     NoOfSites, SiteName, SiteFunc);
  363.    CHECK_RETURN (ret_code);
  364.  
  365.    /* create rm unit */
  366.    ret_code = bn_artmap_make_layer (1, 1, 1, RM_X, RM_Y, "rm", HIDDEN, ACTF_RM, OUTFUNC,
  367.                                     0, NULL, NULL);
  368.    CHECK_RETURN (ret_code);
  369.  
  370.    /* create rg unit */
  371.    ret_code = bn_artmap_make_layer (1, 1, 1, RG_X, RG_Y, "rg", HIDDEN, ACTF_RG, OUTFUNC,
  372.                                     0, NULL, NULL);
  373.    CHECK_RETURN (ret_code);
  374.  
  375.    /* create cl unit */
  376.    ret_code = bn_artmap_make_layer (1, 1, 1, CL_X, CL_Y, "cl", HIDDEN, ACTF_CL, OUTFUNC,
  377.                                     0, NULL, NULL);
  378.    CHECK_RETURN (ret_code);
  379.  
  380.    /* create nc unit */
  381.    ret_code = bn_artmap_make_layer (1, 1, 1, NC_X, NC_Y, "nc", HIDDEN, ACTF_NC, OUTFUNC,
  382.                                     0, NULL, NULL);
  383.    CHECK_RETURN (ret_code);
  384.  
  385.    /* create rho unit */
  386.    ret_code = bn_artmap_make_layer (1, 1, 1, RHO_X, RHO_Y, "rho", HIDDEN, ACTF_RHO, OUTFUNC,
  387.                                     0, NULL, NULL);
  388.    CHECK_RETURN (ret_code);
  389.  
  390.    /* create qu unit */
  391.    NoOfSites = 2;
  392.    strcpy(*SiteName    , SITE_NAME_INPa_QU);
  393.    strcpy(*(SiteName+1), SITE_NAME_CMPa_QU);
  394.    strcpy(*SiteFunc    , SITE_FUNC_INPa_QU);
  395.    strcpy(*(SiteFunc+1), SITE_FUNC_CMPa_QU);
  396.  
  397.    ret_code = bn_artmap_make_layer (1, 1, 1, QU_X, QU_Y, "qu", HIDDEN, ACTF_QU, OUTFUNC,
  398.                                     NoOfSites, SiteName, SiteFunc);
  399.    CHECK_RETURN (ret_code);
  400.  
  401.    /* create drho unit */
  402.    ret_code = bn_artmap_make_layer (1, 1, 1, DRHO_X, DRHO_Y, "drho", HIDDEN, ACTF_DRHO, OUTFUNC,
  403.                                     0, NULL, NULL);
  404.    CHECK_RETURN (ret_code);
  405.  
  406.  
  407.  
  408.    /********* create ARTb units ******************/
  409.  
  410.  
  411.    /* create Input Layer for ARTb */
  412.    ret_code = bn_artmap_make_layer (f1bUnits, f1bRows, F1b_COLS, INPb_X, INPb_Y, "inpb",
  413.                                     INPUT, ACTF_INPb, OUTFUNC, 0, NULL, NULL);
  414.    CHECK_RETURN (ret_code);
  415.  
  416.    /* create Comparison Layer for ARTb */
  417.    ret_code = bn_artmap_make_layer (f1bUnits, f1bRows, F1b_COLS, CMPb_X, CMPb_Y, "cmpb",
  418.                                     HIDDEN, ACTF_CMPb, OUTFUNC, 0, NULL, NULL);
  419.    CHECK_RETURN (ret_code);
  420.  
  421.    /* create Recognition Layer for ARTb */
  422.    ret_code = bn_artmap_make_layer (f2bUnits, f2bRows, F2b_COLS, RECb_X, RECb_Y, "recb",
  423.                                     SPECIAL, ACTF_RECb, OUTFUNC, 0, NULL, NULL);
  424.    CHECK_RETURN (ret_code);
  425.  
  426.    /* create Delay Layer for ARTa */
  427.    ret_code = bn_artmap_make_layer (f2bUnits, f2bRows, F2b_COLS, DELb_X, DELb_Y, "delb",
  428.                                     HIDDEN, ACTF_DELb, OUTFUNC, 0, NULL, NULL);
  429.  
  430.    /* create d1b */
  431.    ret_code = bn_artmap_make_layer (1, 1, 1, D1b_X, D1b_Y, "d1b", HIDDEN, ACTF_Db,
  432.                                     OUTFUNC, 0, NULL, NULL);
  433.    CHECK_RETURN (ret_code);
  434.  
  435.    /* create d2b */
  436.    ret_code = bn_artmap_make_layer (1, 1, 1, D2b_X, D2b_Y, "d2b", HIDDEN, ACTF_Db,
  437.                                     OUTFUNC, 0, NULL, NULL);
  438.    CHECK_RETURN (ret_code);
  439.  
  440.    /* create d3b */
  441.    ret_code = bn_artmap_make_layer (1, 1, 1, D3b_X, D3b_Y, "d3b", HIDDEN, ACTF_Db,
  442.                                     OUTFUNC, 0, NULL, NULL);
  443.    CHECK_RETURN (ret_code);
  444.  
  445.    /* create local reset layer */
  446.    NoOfSites = 2;
  447.    strcpy(*SiteName    , SITE_NAME_RSTb_SELF);
  448.    strcpy(*(SiteName+1), SITE_NAME_RSTb_SIGNAL);
  449.    strcpy(*SiteFunc    , SITE_FUNC_RSTb_SELF);
  450.    strcpy(*(SiteFunc+1), SITE_FUNC_RSTb_SIGNAL);
  451.  
  452.    ret_code = bn_artmap_make_layer (f2bUnits, f2bRows, F2b_COLS, RSTb_X, RSTb_Y, "rstb",
  453.                                     HIDDEN, ACTF_RSTb, OUTFUNC, NoOfSites, SiteName,
  454.                                     SiteFunc);
  455.    CHECK_RETURN (ret_code);
  456.  
  457.  
  458.    /* create g1b */
  459.    NoOfSites = 2;
  460.    strcpy(*SiteName    , SITE_NAME_REC_G1b);
  461.    strcpy(*(SiteName+1), SITE_NAME_INP_G1b);
  462.    strcpy(*SiteFunc    , SITE_FUNC_REC_G1b);
  463.    strcpy(*(SiteFunc+1), SITE_FUNC_INP_G1b);
  464.  
  465.    ret_code = bn_artmap_make_layer (1, 1, 1, G1b_X, G1b_Y, "g1b", HIDDEN, ACTF_G1b,
  466.                                     OUTFUNC, NoOfSites, SiteName, SiteFunc);
  467.    CHECK_RETURN (ret_code);
  468.  
  469.    /* create rib */
  470.    NoOfSites = 2;
  471.    strcpy(*SiteName    , SITE_NAME_INP_RIb);
  472.    strcpy(*(SiteName+1), SITE_NAME_RHO_RIb);
  473.    strcpy(*SiteFunc    , SITE_FUNC_INP_RIb);
  474.    strcpy(*(SiteFunc+1), SITE_FUNC_RHO_RIb);
  475.  
  476.    ret_code = bn_artmap_make_layer (1, 1, 1, RIb_X, RIb_Y, "rib", HIDDEN, ACTF_RIb,
  477.                                     OUTFUNC, NoOfSites, SiteName, SiteFunc);
  478.    CHECK_RETURN (ret_code);
  479.  
  480.    /* create rcb */
  481.    ret_code = bn_artmap_make_layer (1, 1, 1, RCb_X, RCb_Y, "rcb", HIDDEN, ACTF_RCb,
  482.                                     OUTFUNC, 0, NULL, NULL);
  483.    CHECK_RETURN (ret_code);
  484.  
  485.  
  486.    /* create rgb */
  487.    ret_code = bn_artmap_make_layer (1, 1, 1, RGb_X, RGb_Y, "rgb", HIDDEN, ACTF_RGb,
  488.                                     OUTFUNC, 0, NULL, NULL);
  489.    CHECK_RETURN (ret_code);
  490.  
  491.    /* create clb */
  492.    ret_code = bn_artmap_make_layer (1, 1, 1, CLb_X, CLb_Y, "clb", HIDDEN, ACTF_CLb,
  493.                                     OUTFUNC, 0, NULL, NULL);
  494.    CHECK_RETURN (ret_code);
  495.  
  496.    /* create ncb */
  497.    ret_code = bn_artmap_make_layer (1, 1, 1, NCb_X, NCb_Y, "ncb", HIDDEN, ACTF_NCb,
  498.                                     OUTFUNC, 0, NULL, NULL);
  499.    CHECK_RETURN (ret_code);
  500.  
  501.    /* create rhob */
  502.    ret_code = bn_artmap_make_layer (1, 1, 1, RHOb_X, RHOb_Y, "rhob", HIDDEN, ACTF_RHOb,
  503.                                     OUTFUNC, 0, NULL, NULL);
  504.    CHECK_RETURN (ret_code);
  505.  
  506.    /* create g2b */
  507.    ret_code = bn_artmap_make_layer (1, 1, 1, G2b_X, G2b_Y, "g2b", HIDDEN, ACTF_G2b,
  508.                                     OUTFUNC, 0, NULL, NULL);
  509.    CHECK_RETURN (ret_code);
  510.  
  511.  
  512.  
  513.    /* Make Connections now */
  514.  
  515.  
  516.    /********* Create Links **************************************/
  517.  
  518.  
  519.    /********* Links to ARTa units ***********************/
  520.  
  521.    /* TO cmpa units */
  522.    for (i=1; i<=f1aUnits; i++) {
  523.  
  524.       ret_code = krui_setCurrentUnit (CMPa_UNIT(i));
  525.       CHECK_RETURN (ret_code);
  526.  
  527.       /* FROM inpa units */
  528.       ret_code = krui_createLink (INPa_UNIT(i),0.0);
  529.       CHECK_RETURN (ret_code);
  530.  
  531.       /* FROM g1a unit */
  532.       ret_code = krui_createLink (G1a_UNIT, 0.0);
  533.       CHECK_RETURN (ret_code);
  534.  
  535.       /* FROM dela units */
  536.       for (j=1; j<=f2aUnits; j++) {
  537.          ret_code = krui_createLink (DELa_UNIT(j), 0.0);
  538.          CHECK_RETURN (ret_code);
  539.       } /*for*/
  540.  
  541.    } /*for*/
  542.  
  543.  
  544.    /* TO reca units */
  545.    for (i=1; i<=f2aUnits; i++) {
  546.  
  547.       ret_code = krui_setCurrentUnit (RECa_UNIT(i));
  548.       CHECK_RETURN (ret_code);
  549.  
  550.       /* FROM cmpa units */
  551.       for (j=1; j<=f1aUnits; j++) {
  552.          ret_code = krui_createLink (CMPa_UNIT(j), 0.0);
  553.          CHECK_RETURN (ret_code);
  554.       } /*for*/
  555.  
  556.       /* FROM rga unit */
  557.       ret_code = krui_createLink (RGa_UNIT, 0.0);
  558.       CHECK_RETURN (ret_code);
  559.  
  560.       /* FROM rsta units */
  561.       ret_code = krui_createLink (RSTa_UNIT(i), 0.0);
  562.       CHECK_RETURN (ret_code);
  563.  
  564.       /* FROM g2a unit */
  565.       ret_code = krui_createLink (G2a_UNIT, 0.0);
  566.       CHECK_RETURN (ret_code);
  567.  
  568.    } /*for*/
  569.  
  570.  
  571.    /* TO dela units */
  572.    for (i=1; i<=f2aUnits; i++) {
  573.  
  574.       ret_code = krui_setCurrentUnit (DELa_UNIT(i));
  575.       CHECK_RETURN (ret_code);
  576.  
  577.       /* FROM reca units */
  578.       ret_code = krui_createLink (RECa_UNIT(i), 0.0);
  579.       CHECK_RETURN (ret_code);
  580.  
  581.    } /*for*/
  582.  
  583.  
  584.    /* TO rsta units */
  585.    for (i=1; i<=f2aUnits; i++) {
  586.  
  587.       ret_code = krui_setCurrentUnit (RSTa_UNIT(i));
  588.       CHECK_RETURN (ret_code);
  589.  
  590.       /* first Site */
  591.       ret_code = krui_setSite (SITE_NAME_RSTa_SELF);
  592.       CHECK_RETURN (ret_code);
  593.  
  594.       /* FROM itself */
  595.       ret_code = krui_createLink (RSTa_UNIT(i), 0.0);
  596.       CHECK_RETURN (ret_code);
  597.  
  598.       /* second Site */
  599.       ret_code = krui_setSite (SITE_NAME_RSTa_SIGNAL);
  600.       CHECK_RETURN (ret_code);
  601.  
  602.       /* FROM dela units */
  603.       ret_code = krui_createLink (DELa_UNIT(i), 0.0);
  604.       CHECK_RETURN (ret_code);
  605.  
  606.       /* FROM rga unit */
  607.       ret_code = krui_createLink (RGa_UNIT, 0.0);
  608.       CHECK_RETURN (ret_code);
  609.  
  610.  
  611.    } /*for*/
  612.  
  613.  
  614.    /* TO d1a unit */
  615.    ret_code = krui_setCurrentUnit (Da_UNIT(1));
  616.    CHECK_RETURN (ret_code);
  617.  
  618.    /* FROM dela units */
  619.    for (j=1; j<=f2aUnits; j++) {
  620.       ret_code = krui_createLink (DELa_UNIT(j), 0.0);
  621.       CHECK_RETURN (ret_code);
  622.    } /*for*/
  623.  
  624.  
  625.    /* TO d2a unit */
  626.    ret_code = krui_setCurrentUnit (Da_UNIT(2));
  627.    CHECK_RETURN (ret_code);
  628.  
  629.    /* FROM d1a unit */
  630.    ret_code = krui_createLink (Da_UNIT(1), 0.0);
  631.    CHECK_RETURN (ret_code);
  632.  
  633.  
  634.    /* TO d3a unit */
  635.    ret_code = krui_setCurrentUnit (Da_UNIT(3));
  636.    CHECK_RETURN (ret_code);
  637.  
  638.    /* FROM d2a unit */
  639.    ret_code = krui_createLink (Da_UNIT(2), 0.0);
  640.    CHECK_RETURN (ret_code);
  641.  
  642.  
  643.    /* TO g1a unit */
  644.    ret_code = krui_setCurrentUnit (G1a_UNIT);
  645.    CHECK_RETURN (ret_code);
  646.  
  647.    /* first Site */
  648.    ret_code = krui_setSite (SITE_NAME_REC_G1a);
  649.    CHECK_RETURN (ret_code);
  650.  
  651.    /* FROM reca units */
  652.    for (j=1; j<=f2aUnits; j++) {
  653.       ret_code = krui_createLink (RECa_UNIT(j), 0.0);
  654.       CHECK_RETURN (ret_code);
  655.    } /*for*/
  656.  
  657.    /* second Site */
  658.    ret_code = krui_setSite (SITE_NAME_INP_G1a);
  659.    CHECK_RETURN (ret_code);
  660.  
  661.    /* FROM inpa units */
  662.    for (j=1; j<=f1aUnits; j++) {
  663.       ret_code = krui_createLink (INPa_UNIT(j), 0.0);
  664.       CHECK_RETURN (ret_code);
  665.    } /*for*/
  666.  
  667.  
  668.    /* TO ria unit */
  669.    ret_code = krui_setCurrentUnit (RIa_UNIT);
  670.    CHECK_RETURN (ret_code);
  671.  
  672.    /* first Site */
  673.    ret_code = krui_setSite (SITE_NAME_INP_RIa);
  674.    CHECK_RETURN (ret_code);
  675.  
  676.    /* FROM inpa units */
  677.    for (j=1; j<=f1aUnits; j++) {
  678.       ret_code = krui_createLink (INPa_UNIT(j), 0.0);
  679.       CHECK_RETURN (ret_code);
  680.    } /*for*/
  681.  
  682.    /* second Site */
  683.    ret_code = krui_setSite (SITE_NAME_RHO_RIa);
  684.    CHECK_RETURN (ret_code);
  685.  
  686.    /* from rhoa unit */
  687.    ret_code = krui_createLink (RHOa_UNIT, 0.0);
  688.    CHECK_RETURN (ret_code);
  689.  
  690.  
  691.    /* TO rca unit */
  692.    ret_code = krui_setCurrentUnit (RCa_UNIT);
  693.    CHECK_RETURN (ret_code);
  694.  
  695.    /* FROM cmpa units */
  696.    for (j=1; j<=f1aUnits; j++) {
  697.       ret_code = krui_createLink (CMPa_UNIT(j), 0.0);
  698.       CHECK_RETURN (ret_code);
  699.    } /*for*/
  700.  
  701.  
  702.    /* TO rga unit */
  703.    ret_code = krui_setCurrentUnit (RGa_UNIT);
  704.    CHECK_RETURN (ret_code);
  705.  
  706.    /* FROM ria unit */
  707.    ret_code = krui_createLink (RIa_UNIT, 0.0);
  708.    CHECK_RETURN (ret_code);
  709.  
  710.    /* FROM rca unit */
  711.    ret_code = krui_createLink (RCa_UNIT, 0.0);
  712.    CHECK_RETURN (ret_code);
  713.  
  714.  
  715.    /* TO cla unit */
  716.    ret_code = krui_setCurrentUnit (CLa_UNIT);
  717.    CHECK_RETURN (ret_code);
  718.  
  719.    /* FROM d3a unit */
  720.    ret_code = krui_createLink (Da_UNIT(3), 0.0);
  721.    CHECK_RETURN (ret_code);
  722.  
  723.    /* FROM rga unit */
  724.    ret_code = krui_createLink (RGa_UNIT, 0.0);
  725.    CHECK_RETURN (ret_code);
  726.  
  727.    /* FROM g2a unit */
  728.    ret_code = krui_createLink (G2a_UNIT, 0.0);
  729.    CHECK_RETURN (ret_code);
  730.  
  731.  
  732.    /* TO nca unit */
  733.    ret_code = krui_setCurrentUnit (NCa_UNIT);
  734.    CHECK_RETURN (ret_code);
  735.  
  736.    /* FROM rsta units */
  737.    for (j=1; j<=f2aUnits; j++) {
  738.       ret_code = krui_createLink (RSTa_UNIT(j), 0.0);
  739.       CHECK_RETURN (ret_code);
  740.    } /*for*/
  741.  
  742.    /* TO rhoa unit */
  743.    ret_code = krui_setCurrentUnit (RHOa_UNIT);
  744.    CHECK_RETURN (ret_code);
  745.  
  746.    /* FROM itself */
  747.    ret_code = krui_createLink (RHOa_UNIT, 0.0);
  748.    CHECK_RETURN (ret_code);
  749.  
  750.    /* FROM drho unit */
  751.    ret_code = krui_createLink (DRHO_UNIT, 0.0);
  752.    CHECK_RETURN (ret_code);
  753.  
  754.  
  755.    /* TO g2a unit */
  756.    ret_code = krui_setCurrentUnit (G2a_UNIT);
  757.    CHECK_RETURN (ret_code);
  758.  
  759.    /* FROM inpa units */
  760.    for (j = 1; j <= f1aUnits; j++) {
  761.       ret_code = krui_createLink (INPa_UNIT(j), 0.0);
  762.       CHECK_RETURN (ret_code);
  763.    } /*for*/
  764.  
  765.  
  766.    /********* Links to MAP Fiels units ***********************/
  767.  
  768.    /* TO map units */
  769.    for (i=1; i<=f2bUnits; i++) {
  770.  
  771.       ret_code = krui_setCurrentUnit (MAP_UNIT(i));
  772.       CHECK_RETURN (ret_code);
  773.  
  774.       /* FROM dela units */
  775.       for (j=1; j<=f2aUnits; j++) {
  776.          ret_code = krui_createLink (DELa_UNIT(j), 0.0);
  777.          CHECK_RETURN (ret_code);
  778.       } /*for*/
  779.  
  780.       /* FROM delb unit */
  781.       ret_code = krui_createLink (DELb_UNIT(i), 0.0);
  782.       CHECK_RETURN (ret_code);
  783.  
  784.       /* FROM G unit */
  785.       ret_code = krui_createLink (G_UNIT, 0.0);
  786.       CHECK_RETURN (ret_code);
  787.  
  788.    } /*for*/
  789.  
  790.  
  791.    /* TO d1 unit */
  792.    ret_code = krui_setCurrentUnit (D1_UNIT);
  793.    CHECK_RETURN (ret_code);
  794.  
  795.    /* FROM delb units */
  796.    for (j=1; j<=f2bUnits; j++) {
  797.       ret_code = krui_createLink (DELb_UNIT(j), 0.0);
  798.       CHECK_RETURN (ret_code);
  799.    } /*for*/
  800.  
  801.  
  802.    /* TO G unit */
  803.    ret_code = krui_setCurrentUnit (G_UNIT);
  804.    CHECK_RETURN (ret_code);
  805.  
  806.    /* first Site */
  807.    ret_code = krui_setSite (SITE_NAME_ARTa_G);
  808.    CHECK_RETURN (ret_code);
  809.  
  810.    /* FROM reca units */
  811.    for (j=1; j<=f2aUnits; j++) {
  812.       ret_code = krui_createLink (RECa_UNIT(j), 0.0);
  813.       CHECK_RETURN (ret_code);
  814.    } /*for*/
  815.  
  816.    /* second Site */
  817.    ret_code = krui_setSite (SITE_NAME_ARTb_G);
  818.    CHECK_RETURN (ret_code);
  819.  
  820.    /* FROM recb units */
  821.    for (j=1; j<=f2bUnits; j++) {
  822.       ret_code = krui_createLink (RECb_UNIT(j), 0.0);
  823.       CHECK_RETURN (ret_code);
  824.    } /*for*/
  825.  
  826.  
  827.    /* TO rb unit */
  828.    ret_code = krui_setCurrentUnit (RB_UNIT);
  829.    CHECK_RETURN (ret_code);
  830.  
  831.    /* first Site */
  832.    ret_code = krui_setSite (SITE_NAME_B_RB);
  833.    CHECK_RETURN (ret_code);
  834.  
  835.    /* FROM d1 unit */
  836.    ret_code = krui_createLink (D1_UNIT, 0.0);
  837.    CHECK_RETURN (ret_code);
  838.  
  839.    /* second Site */
  840.    ret_code = krui_setSite (SITE_NAME_RHO_RB);
  841.    CHECK_RETURN (ret_code);
  842.  
  843.    /* from rho unit */
  844.    ret_code = krui_createLink (RHO_UNIT, 0.0);
  845.    CHECK_RETURN (ret_code);
  846.  
  847.  
  848.    /* TO rm unit */
  849.    ret_code = krui_setCurrentUnit (RM_UNIT);
  850.    CHECK_RETURN (ret_code);
  851.  
  852.    /* FROM map units */
  853.    for (j=1; j<=f2bUnits; j++) {
  854.       ret_code = krui_createLink (MAP_UNIT(j), 0.0);
  855.       CHECK_RETURN (ret_code);
  856.    } /*for*/
  857.  
  858.  
  859.    /* TO rg unit */
  860.    ret_code = krui_setCurrentUnit (RG_UNIT);
  861.    CHECK_RETURN (ret_code);
  862.  
  863.    /* FROM rb unit */
  864.    ret_code = krui_createLink (RB_UNIT, 0.0);
  865.    CHECK_RETURN (ret_code);
  866.  
  867.    /* FROM rm unit */
  868.    ret_code = krui_createLink (RM_UNIT, 0.0);
  869.    CHECK_RETURN (ret_code);
  870.  
  871.  
  872.    /* TO cl unit */
  873.    ret_code = krui_setCurrentUnit (CL_UNIT);
  874.    CHECK_RETURN (ret_code);
  875.  
  876.    /* FROM cla unit */
  877.    ret_code = krui_createLink (CLa_UNIT, 0.0);
  878.    CHECK_RETURN (ret_code);
  879.  
  880.    /* FROM clb unit */
  881.    ret_code = krui_createLink (CLb_UNIT, 0.0);
  882.    CHECK_RETURN (ret_code);
  883.  
  884.    /* FROM rg unit */
  885.    ret_code = krui_createLink (RG_UNIT, 0.0);
  886.    CHECK_RETURN (ret_code);
  887.  
  888.  
  889.    /* TO nc unit */
  890.    ret_code = krui_setCurrentUnit (NC_UNIT);
  891.    CHECK_RETURN (ret_code);
  892.  
  893.    /* FROM nca unit */
  894.    ret_code = krui_createLink (NCa_UNIT, 0.0);
  895.    CHECK_RETURN (ret_code);
  896.  
  897.    /* FROM ncb unit */
  898.    ret_code = krui_createLink (NCb_UNIT, 0.0);
  899.    CHECK_RETURN (ret_code);
  900.  
  901.    /* TO rho unit */
  902.    ret_code = krui_setCurrentUnit (RHO_UNIT);
  903.    CHECK_RETURN (ret_code);
  904.  
  905.    /* from itself */
  906.    ret_code = krui_createLink (RHO_UNIT, 0.0);
  907.    CHECK_RETURN (ret_code);
  908.  
  909.  
  910.    /* TO qu unit */
  911.    ret_code = krui_setCurrentUnit (QU_UNIT);
  912.    CHECK_RETURN (ret_code);
  913.  
  914.    /* first Site */
  915.    ret_code = krui_setSite (SITE_NAME_INPa_QU);
  916.    CHECK_RETURN (ret_code);
  917.  
  918.    /* FROM inpa units */
  919.    for (j=1; j <= f1aUnits; j++) {
  920.       ret_code = krui_createLink (INPa_UNIT(j), 0.0);
  921.       CHECK_RETURN (ret_code);
  922.    } /*for*/
  923.  
  924.    /* second Site */
  925.    ret_code = krui_setSite (SITE_NAME_CMPa_QU);
  926.    CHECK_RETURN (ret_code);
  927.  
  928.    /* from cmpa units */
  929.    for (j=1; j<=f1aUnits; j++) {
  930.       ret_code = krui_createLink (CMPa_UNIT(j), 0.0);
  931.       CHECK_RETURN (ret_code);
  932.    } /*for*/
  933.  
  934.  
  935.    /* TO drho unit */
  936.    ret_code = krui_setCurrentUnit (DRHO_UNIT);
  937.    CHECK_RETURN (ret_code);
  938.  
  939.    /* from itself */
  940.    ret_code = krui_createLink (DRHO_UNIT, 0.0);
  941.    CHECK_RETURN (ret_code);
  942.  
  943.    /* from rg unit */
  944.    ret_code = krui_createLink (RG_UNIT, 0.0);
  945.    CHECK_RETURN (ret_code);
  946.  
  947.    /* from qu unit */
  948.    ret_code = krui_createLink (QU_UNIT, 0.0);
  949.    CHECK_RETURN (ret_code);
  950.  
  951.    /* from rhoa unit */
  952.    ret_code = krui_createLink (RHOa_UNIT, 0.0);
  953.    CHECK_RETURN (ret_code);
  954.  
  955.    /* from rga unit */
  956.    ret_code = krui_createLink (RGa_UNIT, 0.0);
  957.    CHECK_RETURN (ret_code);
  958.  
  959.    /* from clb unit */
  960.    ret_code = krui_createLink (CLb_UNIT, 0.0);
  961.    CHECK_RETURN (ret_code);
  962.  
  963.  
  964.    /********* Links to ARTb units ***********************/
  965.  
  966.    /* TO cmpb units */
  967.    for (i=1; i<=f1bUnits; i++) {
  968.  
  969.       ret_code = krui_setCurrentUnit (CMPb_UNIT(i));
  970.       CHECK_RETURN (ret_code);
  971.  
  972.       /* FROM inpb units */
  973.       ret_code = krui_createLink (INPb_UNIT(i),0.0);
  974.       CHECK_RETURN (ret_code);
  975.  
  976.       /* FROM g1b unit */
  977.       ret_code = krui_createLink (G1b_UNIT, 0.0);
  978.       CHECK_RETURN (ret_code);
  979.  
  980.       /* FROM delb units */
  981.       for (j=1; j<=f2bUnits; j++) {
  982.          ret_code = krui_createLink (DELb_UNIT(j), 0.0);
  983.          CHECK_RETURN (ret_code);
  984.       } /*for*/
  985.  
  986.    } /*for*/
  987.  
  988.  
  989.    /* TO recb units */
  990.    for (i=1; i<=f2bUnits; i++) {
  991.  
  992.       ret_code = krui_setCurrentUnit (RECb_UNIT(i));
  993.       CHECK_RETURN (ret_code);
  994.  
  995.       /* FROM cmpb units */
  996.       for (j=1; j<=f1bUnits; j++) {
  997.          ret_code = krui_createLink (CMPb_UNIT(j), 0.0);
  998.          CHECK_RETURN (ret_code);
  999.       } /*for*/
  1000.  
  1001.       /* FROM rgb unit */
  1002.       ret_code = krui_createLink (RGb_UNIT, 0.0);
  1003.       CHECK_RETURN (ret_code);
  1004.  
  1005.       /* FROM rstb units */
  1006.       ret_code = krui_createLink (RSTb_UNIT(i), 0.0);
  1007.       CHECK_RETURN (ret_code);
  1008.  
  1009.       /* FROM g2b unit */
  1010.       ret_code = krui_createLink (G2b_UNIT, 0.0);
  1011.       CHECK_RETURN (ret_code);
  1012.  
  1013.    } /*for*/
  1014.  
  1015.  
  1016.    /* TO delb units */
  1017.    for (i=1; i<=f2bUnits; i++) {
  1018.  
  1019.       ret_code = krui_setCurrentUnit (DELb_UNIT(i));
  1020.       CHECK_RETURN (ret_code);
  1021.  
  1022.       /* FROM recb units */
  1023.       ret_code = krui_createLink (RECb_UNIT(i), 0.0);
  1024.       CHECK_RETURN (ret_code);
  1025.  
  1026.       /* FROM map units */
  1027.       ret_code = krui_createLink (MAP_UNIT(i), 0.0);
  1028.       CHECK_RETURN (ret_code);
  1029.  
  1030.    } /*for*/
  1031.  
  1032.  
  1033.    /* TO rstb units */
  1034.    for (i=1; i<=f2bUnits; i++) {
  1035.  
  1036.       ret_code = krui_setCurrentUnit (RSTb_UNIT(i));
  1037.       CHECK_RETURN (ret_code);
  1038.  
  1039.       /* first Site */
  1040.       ret_code = krui_setSite (SITE_NAME_RSTb_SELF);
  1041.       CHECK_RETURN (ret_code);
  1042.  
  1043.       /* FROM itself */
  1044.       ret_code = krui_createLink (RSTb_UNIT(i), 0.0);
  1045.       CHECK_RETURN (ret_code);
  1046.  
  1047.       /* second Site */
  1048.       ret_code = krui_setSite (SITE_NAME_RSTb_SIGNAL);
  1049.       CHECK_RETURN (ret_code);
  1050.  
  1051.       /* FROM delb units */
  1052.       ret_code = krui_createLink (DELb_UNIT(i), 0.0);
  1053.       CHECK_RETURN (ret_code);
  1054.  
  1055.       /* FROM rgb unit */
  1056.       ret_code = krui_createLink (RGb_UNIT, 0.0);
  1057.       CHECK_RETURN (ret_code);
  1058.  
  1059.    } /*for*/
  1060.  
  1061.  
  1062.    /* TO d1b unit */
  1063.    ret_code = krui_setCurrentUnit (Db_UNIT(1));
  1064.    CHECK_RETURN (ret_code);
  1065.  
  1066.    /* FROM delb units */
  1067.    for (j=1; j<=f2bUnits; j++) {
  1068.       ret_code = krui_createLink (DELb_UNIT(j), 0.0);
  1069.       CHECK_RETURN (ret_code);
  1070.    } /*for*/
  1071.  
  1072.  
  1073.    /* TO d2b unit */
  1074.    ret_code = krui_setCurrentUnit (Db_UNIT(2));
  1075.    CHECK_RETURN (ret_code);
  1076.  
  1077.    /* FROM d1b unit */
  1078.    ret_code = krui_createLink (Db_UNIT(1), 0.0);
  1079.    CHECK_RETURN (ret_code);
  1080.  
  1081.  
  1082.    /* TO d3b unit */
  1083.    ret_code = krui_setCurrentUnit (Db_UNIT(3));
  1084.    CHECK_RETURN (ret_code);
  1085.  
  1086.    /* FROM d2b unit */
  1087.    ret_code = krui_createLink (Db_UNIT(2), 0.0);
  1088.    CHECK_RETURN (ret_code);
  1089.  
  1090.  
  1091.    /* TO g1b unit */
  1092.    ret_code = krui_setCurrentUnit (G1b_UNIT);
  1093.    CHECK_RETURN (ret_code);
  1094.  
  1095.    /* first Site */
  1096.    ret_code = krui_setSite (SITE_NAME_REC_G1b);
  1097.    CHECK_RETURN (ret_code);
  1098.  
  1099.    /* FROM recb units */
  1100.    for (j=1; j<=f2bUnits; j++) {
  1101.       ret_code = krui_createLink (RECb_UNIT(j), 0.0);
  1102.       CHECK_RETURN (ret_code);
  1103.    } /*for*/
  1104.  
  1105.    /* second Site */
  1106.    ret_code = krui_setSite (SITE_NAME_INP_G1b);
  1107.    CHECK_RETURN (ret_code);
  1108.  
  1109.    /* FROM inpb units */
  1110.    for (j=1; j<=f1bUnits; j++) {
  1111.       ret_code = krui_createLink (INPb_UNIT(j), 0.0);
  1112.       CHECK_RETURN (ret_code);
  1113.    } /*for*/
  1114.  
  1115.  
  1116.    /* TO rib unit */
  1117.    ret_code = krui_setCurrentUnit (RIb_UNIT);
  1118.    CHECK_RETURN (ret_code);
  1119.  
  1120.    /* first Site */
  1121.    ret_code = krui_setSite (SITE_NAME_INP_RIb);
  1122.    CHECK_RETURN (ret_code);
  1123.  
  1124.    /* FROM inpb units */
  1125.    for (j=1; j<=f1bUnits; j++) {
  1126.       ret_code = krui_createLink (INPb_UNIT(j), 0.0);
  1127.       CHECK_RETURN (ret_code);
  1128.    } /*for*/
  1129.  
  1130.    /* second Site */
  1131.    ret_code = krui_setSite (SITE_NAME_RHO_RIb);
  1132.    CHECK_RETURN (ret_code);
  1133.  
  1134.    /* from rhob unit */
  1135.    ret_code = krui_createLink (RHOb_UNIT, 0.0);
  1136.    CHECK_RETURN (ret_code);
  1137.  
  1138.  
  1139.    /* TO rcb unit */
  1140.    ret_code = krui_setCurrentUnit (RCb_UNIT);
  1141.    CHECK_RETURN (ret_code);
  1142.  
  1143.    /* FROM cmpb units */
  1144.    for (j=1; j<=f1bUnits; j++) {
  1145.       ret_code = krui_createLink (CMPb_UNIT(j), 0.0);
  1146.       CHECK_RETURN (ret_code);
  1147.    } /*for*/
  1148.  
  1149.  
  1150.    /* TO rgb unit */
  1151.    ret_code = krui_setCurrentUnit (RGb_UNIT);
  1152.    CHECK_RETURN (ret_code);
  1153.  
  1154.    /* FROM rib unit */
  1155.    ret_code = krui_createLink (RIb_UNIT, 0.0);
  1156.    CHECK_RETURN (ret_code);
  1157.  
  1158.    /* FROM rcb unit */
  1159.    ret_code = krui_createLink (RCb_UNIT, 0.0);
  1160.    CHECK_RETURN (ret_code);
  1161.  
  1162.  
  1163.    /* TO clb unit */
  1164.    ret_code = krui_setCurrentUnit (CLb_UNIT);
  1165.    CHECK_RETURN (ret_code);
  1166.  
  1167.    /* FROM d3b unit */
  1168.    ret_code = krui_createLink (Db_UNIT(3), 0.0);
  1169.    CHECK_RETURN (ret_code);
  1170.  
  1171.    /* FROM rgb unit */
  1172.    ret_code = krui_createLink (RGb_UNIT, 0.0);
  1173.    CHECK_RETURN (ret_code);
  1174.  
  1175.    /* FROM g2b unit */
  1176.    ret_code = krui_createLink (G2b_UNIT, 0.0);
  1177.    CHECK_RETURN (ret_code);
  1178.  
  1179.  
  1180.    /* TO ncb unit */
  1181.    ret_code = krui_setCurrentUnit (NCb_UNIT);
  1182.    CHECK_RETURN (ret_code);
  1183.  
  1184.    /* FROM rstb units */
  1185.    for (j=1; j<=f2bUnits; j++) {
  1186.       ret_code = krui_createLink (RSTb_UNIT(j), 0.0);
  1187.       CHECK_RETURN (ret_code);
  1188.    } /*for*/
  1189.  
  1190.  
  1191.    /* TO rhob unit */
  1192.    ret_code = krui_setCurrentUnit (RHOb_UNIT);
  1193.    CHECK_RETURN (ret_code);
  1194.  
  1195.    /* from itself */
  1196.    ret_code = krui_createLink (RHOb_UNIT, 0.0);
  1197.    CHECK_RETURN (ret_code);
  1198.  
  1199.  
  1200.    /* TO g2b unit */
  1201.    ret_code = krui_setCurrentUnit (G2b_UNIT);
  1202.    CHECK_RETURN (ret_code);
  1203.  
  1204.    /* FROM inpb units */
  1205.    for (j = 1; j <= f1bUnits; j++) {
  1206.       ret_code = krui_createLink (INPb_UNIT(j), 0.0);
  1207.       CHECK_RETURN (ret_code);
  1208.    } /*for*/
  1209.  
  1210.  
  1211.   /*  set the update function  */
  1212.   ret_code = krui_setUpdateFunc (UPDATE_FUNC_NAME);
  1213.   CHECK_RETURN( ret_code );
  1214.  
  1215.   /* set the learning function */
  1216.   ret_code = krui_setLearnFunc (LEARN_FUNC_NAME);
  1217.  
  1218.    return (ret_code);
  1219. }
  1220.  
  1221.  
  1222.  
  1223.  
  1224. /*****************************************************************************
  1225.   FUNCTION : bn_artmap_donePROC
  1226.  
  1227.   PURPOSE  : Callback function for DONE button in artmap
  1228.   NOTES    :
  1229.  
  1230.   UPDATE   : 20.1.1993
  1231. ******************************************************************************/
  1232.  
  1233. static void bn_artmap_donePROC (void)
  1234.  
  1235. {
  1236.  
  1237.    XtDestroyWidget (baseWidget);
  1238.    bn_artmap_open = 0;
  1239.  
  1240. }
  1241.  
  1242.  
  1243.  
  1244. /*****************************************************************************
  1245.   FUNCTION : bn_art1_createPROC
  1246.  
  1247.   PURPOSE  : Callback function for CREATE NET button in art1
  1248.   NOTES    :
  1249.  
  1250.   UPDATE   : 20.1.1993
  1251. ******************************************************************************/
  1252.  
  1253. static void bn_artmap_createPROC (void)
  1254.  
  1255. {
  1256.   int units[4], rows[4];
  1257.   int NoOfLayers = 4;
  1258.  
  1259.   if (bn_basics_check_existingNetwork()) {
  1260.  
  1261.      bn_basics_getValues (NoOfLayers, units, rows, artmapUnitWidget, artmapRowWidget);
  1262.  
  1263.      if (bn_basics_checkValues(NoOfLayers, units, rows)) {
  1264.         bn_artmap_createNet (units[0], rows[0], units[1], rows[1],
  1265.                              units[2], rows[2], units[3], rows[3]);
  1266.  
  1267.         bn_basics_refresh ();
  1268.         ui_confirmOk ("Network created!");
  1269.      } /*if*/
  1270.  
  1271.   } /*if*/
  1272.  
  1273.   return;
  1274.  
  1275. }
  1276.  
  1277.  
  1278.  
  1279. /*****************************************************************************
  1280.   FUNCTION : bn_createARTMAP
  1281.  
  1282.   PURPOSE  : create ARTMAP panel
  1283.   NOTES    :
  1284.  
  1285.   UPDATE   : 20.1.1993
  1286. ******************************************************************************/
  1287.  
  1288. void bn_createARTMAP(void)
  1289.  
  1290. {
  1291.   bn_basics_createART (ARTMAP_MODEL, &baseWidget, &bn_artmap_open,
  1292.                        artmapUnitWidget, artmapRowWidget,
  1293.                        (XtCallbackProc) bn_artmap_createPROC,
  1294.                        (XtCallbackProc) bn_artmap_donePROC);
  1295.  
  1296.  
  1297. }
  1298.  
  1299.